home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / ramdisk.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  2.4 KB  |  45 lines
  1. 10  CLS:PRINT"This basic program was created by CONVERT.BAS":KEY OFF:DEFINT A-Z:FALSE=0:TRUE=NOT FALSE
  2. 20  PRINT"Copyright 1983 ,Rich Schinnell Rockville,MD. Not for Sale."
  3. 30  PRINT "This program will create  you a program named VDISK.COM":PRINT 
  4. 40  ON ERROR GOTO 5000
  5. 50  INPUT "PLACE the disk to write the file TO in Drive A: Press <ENTER> "; CAPITAL$
  6. 90  CLS:LOCATE 12,5:PRINT "Now writing file named VDISK.COM standby please  "
  7. 100  RESTORE
  8. 110  OPEN "R", #1,"VDISK.COM",1 
  9. 120  FIELD #1, 1 AS N$
  10. 130  READ N:LL=(N/28)+1
  11. 140  FOR I = 1 TO N
  12. 150  READ X$,CHECK:FOR C=1 TO LEN(X$) STEP 2:CC$="&H"+MID$(X$,C,2):IF CHECK=9999 THEN 170
  13. 155  LSET N$=CHR$(VAL(CC$)):PUT #1:CHECK=CHECK-VAL(CC$):NEXT C:IF CHECK<>0 THEN 5000
  14. 160  LOCATE 14,5:PRINT TIME$;" Reading data line #";(1000+I);" lines left=";LL-I;:NEXT I:CLOSE
  15. 170  LOCATE 16,5:PRINT "VDISK.COM CREATED * *":GOTO 5010
  16. 1000  DATA  672
  17. 1001  DATA FFFFFFFF0020E100EC00010000000000000000000000000201010002,1520
  18. 1002  DATA 40006801FC02001600000000000000000000000000000049424D2020,725
  19. 1003  DATA 322E3000020101000240006801FC02000501B801CC01120212021202,1029
  20. 1004  DATA 1202120241028002120212021202268B470E2EA32C00268B47102EA3,1285
  21. 1005  DATA 2E00268B471232E42EA32500C32EA12800B92000F7E12E8B162A0003,2219
  22. 1006  DATA D08EDA33F62EA12500B90002F7E10BC07503B8FFFF91C3E8D7FF2E8E,4015
  23. 1007  DATA 062E002E8B3E2C008BC703C17307B8FFFF2BC78BC8F3A4C3E8BAFF1E,3579
  24. 1008  DATA 078BFE2E8E1E2E002E8B362C008BC603C17307B8FFFF2BC68BC8F3A4,3283
  25. 1009  DATA C32E8C0614002E891E1200CBFC1E06505351525756268A4702D0C08D,2418
  26. 1010  DATA 3E480032E403F8FF250E5A2E8D06A002B104D3C803D02E89162A00B8,2648
  27. 1011  DATA 002D03D026C7470E00002689571026C6470D018D1623002689571226,1693
  28. 1012  DATA 8C4F142E8E062A0033FF8D363000B91800F3A42EC706280001002EC7,2177
  29. 1013  DATA 0625000200E825FF1E078BFE32C0F3AAC604FCC64401FFC64402FF1E,3183
  30. 1014  DATA 562EC706280003002EC70625000200E8FFFE1E078BFE5E1FF3A42EC7,2618
  31. 1015  DATA 06280005002EC70625000400E8E6FE32C01E0733FFF3AA2E8E061400,2271
  32. 1016  DATA 2E8B1E120026814F03000126814F030000E9D00026C6470E0126814F,1741
  33. 1017  DATA 03000126814F030000E9BC0006532EC706280000002EC70625000100,1343
  34. 1018  DATA E89EFE0E078D3E160083C60BB90D00F3A45B078D1616002689571226,2436
  35. 1019  DATA 8C4F142689570E268C4F1026814F03000126814F030000EB7790E84D,2094
  36. 1020  DATA FE268B47142EA32800268B47122EA32500E87BFE2E8B1E12002E8E06,2319
  37. 1021  DATA 140026814F03000126814F030000EB4890E81EFE268B47142EA32800,2003
  38. 1022  DATA 268B47122EA32500E869FE2E8B1E12002E8E0614002E803E27000074,1941
  39. 1023  DATA 082EC606270000EBA126814F03000126814F030000EB09902EC60627,1869
  40. 1024  DATA 0001EBB95E5F5A595B58071FCB000000000000000000000000000000,1209
  41. 1025  DATA 000000,9999
  42. 5000  PRINT "* * ERROR VERIFY FOLLOWING DATA * * * "
  43. 5005  PRINT X$;",";CHECK 
  44. 5010  KEY ON:CLOSE:END
  45.